Profile of (eval 268)[Sub/Quote.pm:3]

Filename	(eval 268)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 144 statements in 312µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
10	1	1	182µs	301µs	JSON::Schema::Modern::Document::_set_canonical_uri
1	1	1	8µs	19µs	JSON::Schema::Modern::Document::BEGIN@7
1	1	1	7µs	18µs	Method::Generate::Accessor::_Generated::BEGIN@39
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
5	1	0s			my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
6					package JSON::Schema::Modern::Document;
7	2	32µs	2	30µs	# spent 19µs (8+11) within JSON::Schema::Modern::Document::BEGIN@7 which was called: # once (8µs+11µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 19µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7 # spent 11µs making 1 call to warnings::unimport
8					# spent 301µs (182+119) within JSON::Schema::Modern::Document::_set_canonical_uri which was called 10 times, avg 30µs/call: # 10 times (182µs+119µs) by JSON::Schema::Modern::Document::BUILD at line 149 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm, avg 30µs/call sub _set_canonical_uri {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 1762;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	51µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12
18					# END quote_sub PRELUDE
19	20	13µs			scalar do { my $value = do {
20	10	17µs			local $Method::Generate::Accessor::CurrentAttribute = {
21					init_arg => undef(),
22					name => "canonical_uri",
23					step => "coercion",
24					};
25	10	8µs			(my $_return),
26					(my $_error), (my $_old_error = $@);
27	10	4µs			(eval {
28	10	25µs	10	109µs	($@ = $_old_error), # spent 109µs making 10 calls to JSON::Schema::Modern::Document::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm:39], avg 11µs/call
29					($_return =
30					$coerce_for_canonical_5furi->($_[1])),
31					1
32					} or
33					$_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
34	10	6µs			($@ = $_old_error),
35					(defined $_error and CORE::die $_error);
36	10	7µs			$_return;
37					}
38					;
39	42	127µs	32	39µs	# spent 18µs (7+11) within Method::Generate::Accessor::_Generated::BEGIN@39 which was called: # once (7µs+11µs) by Sub::Quote::_clean_eval at line 39 (do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"canonical_uri\"}"); $value }), # spent 18µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@39 # spent 11µs making 1 call to warnings::unimport # spent 4µs making 10 calls to Mojo::URL::fragment, avg 400ns/call # spent 4µs making 10 calls to UNIVERSAL::isa, avg 400ns/call # spent 2µs making 10 calls to Scalar::Util::blessed, avg 200ns/call
40					($_[0]->{"canonical_uri"} = $value),
41	10	13µs			($_[0]->{"canonical_uri"}),
42					} }
43	1	1µs			$$_UNQUOTED = \&_set_canonical_uri;
44					}
45	1	4µs			1;
46
47					;